home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / sbin / dpkg-statoverride < prev    next >
Text File  |  2008-09-03  |  6KB  |  241 lines
  1. #! /usr/bin/perl
  2.  
  3. BEGIN { # Work-around for bug #479711 in perl
  4.     $ENV{PERL_DL_NONLAZY} = 1;
  5. }
  6.  
  7. use strict;
  8. use warnings;
  9.  
  10. use POSIX;
  11. use POSIX qw(:errno_h :signal_h);
  12. use Dpkg;
  13. use Dpkg::Gettext;
  14.  
  15. textdomain("dpkg");
  16.  
  17. my $verbose = 1;
  18. my $doforce = 0;
  19. my $doupdate = 0;
  20. my $mode = "";
  21.  
  22. my %owner;
  23. my %group;
  24. my %mode;
  25.  
  26. sub version {
  27.     printf _g("Debian %s version %s.\n"), $progname, $version;
  28.  
  29.     printf _g("
  30. Copyright (C) 2000 Wichert Akkerman.");
  31.  
  32.     printf _g("
  33. This is free software; see the GNU General Public Licence version 2 or
  34. later for copying conditions. There is NO warranty.
  35. ");
  36. }
  37.  
  38. sub usage {
  39.     printf _g(
  40. "Usage: %s [<option> ...] <command>
  41.  
  42. Commands:
  43.   --add <owner> <group> <mode> <file>
  44.                            add a new entry into the database.
  45.   --remove <file>          remove file from the database.
  46.   --list [<glob-pattern>]  list current overrides in the database.
  47.  
  48. Options:
  49.   --admindir <directory>   set the directory with the statoverride file.
  50.   --update                 immediately update file permissions.
  51.   --force                  force an action even if a sanity check fails.
  52.   --quiet                  quiet operation, minimal output.
  53.   --help                   show this help message.
  54.   --version                show the version.
  55. "), $progname;
  56. }
  57.  
  58. sub CheckModeConflict {
  59.     return unless $mode;
  60.     badusage(sprintf(_g("two commands specified: %s and --%s"), $_, $mode));
  61. }
  62.  
  63. while (@ARGV) {
  64.     $_=shift(@ARGV);
  65.     last if m/^--$/;
  66.     if (!m/^-/) {
  67.         unshift(@ARGV,$_); last;
  68.     } elsif (m/^--help$/) {
  69.         &usage; exit(0);
  70.     } elsif (m/^--version$/) {
  71.         &version; exit(0);
  72.     } elsif (m/^--update$/) {
  73.         $doupdate=1;
  74.     } elsif (m/^--quiet$/) {
  75.         $verbose=0;
  76.     } elsif (m/^--force$/) {
  77.         $doforce=1;
  78.     } elsif (m/^--admindir$/) {
  79.         @ARGV || &badusage(sprintf(_g("--%s needs a <directory> argument"), "admindir"));
  80.         $admindir= shift(@ARGV);
  81.     } elsif (m/^--add$/) {
  82.         &CheckModeConflict;
  83.         $mode= 'add';
  84.     } elsif (m/^--remove$/) {
  85.         &CheckModeConflict;
  86.         $mode= 'remove';
  87.     } elsif (m/^--list$/) {
  88.         &CheckModeConflict;
  89.         $mode= 'list';
  90.     } else {
  91.         &badusage(sprintf(_g("unknown option \`%s'"), $_));
  92.     }
  93. }
  94.  
  95. my $dowrite = 0;
  96. my $exitcode = 0;
  97.  
  98. &badusage(_g("no mode specified")) unless $mode;
  99. &ReadOverrides;
  100.  
  101. if ($mode eq "add") {
  102.     @ARGV==4 || &badusage(_g("--add needs four arguments"));
  103.  
  104.     my $user = $ARGV[0];
  105.     my $uid = 0;
  106.     my $gid = 0;
  107.  
  108.     if ($user =~ m/^#([0-9]+)$/) {
  109.         $uid=$1;
  110.         &badusage(sprintf(_g("illegal user %s"), $user)) if ($uid<0);
  111.     } else {
  112.         my ($name, $pw);
  113.         (($name,$pw,$uid)=getpwnam($user)) || &badusage(sprintf(_g("non-existing user %s"), $user));
  114.     }
  115.  
  116.     my $group = $ARGV[1];
  117.     if ($group =~ m/^#([0-9]+)$/) {
  118.         $gid=$1;
  119.         &badusage(sprintf(_g("illegal group %s"), $group)) if ($gid<0);
  120.     } else {
  121.         my ($name, $pw);
  122.         (($name,$pw,$gid)=getgrnam($group)) || &badusage(sprintf(_g("non-existing group %s"), $group));
  123.     }
  124.  
  125.     my $mode = $ARGV[2];
  126.     (($mode<0) or (oct($mode)>07777) or ($mode !~ m/\d+/)) && &badusage(sprintf(_g("illegal mode %s"), $mode));
  127.     my $file = $ARGV[3];
  128.     $file =~ m/\n/ && &badusage(_g("file may not contain newlines"));
  129.     $file =~ s,/+$,, && print STDERR _g("stripping trailing /")."\n";
  130.  
  131.     if (defined $owner{$file}) {
  132.         printf STDERR _g("An override for \"%s\" already exists, "), $file;
  133.         if ($doforce) {
  134.             print STDERR _g("but --force specified so will be ignored.")."\n";
  135.         } else {
  136.             print STDERR _g("aborting")."\n";
  137.             exit(3);
  138.         }
  139.     }
  140.     $owner{$file}=$user;
  141.     $group{$file}=$group;
  142.     $mode{$file}=$mode;
  143.     $dowrite=1;
  144.  
  145.     if ($doupdate) {
  146.         if (not -e $file) {
  147.         printf STDERR _g("warning: --update given but %s does not exist")."\n", $file;
  148.         } else {
  149.         chown ($uid,$gid,$file) || warn sprintf(_g("failed to chown %s: %s"), $file, $!)."\n";
  150.         chmod (oct($mode),$file) || warn sprintf(_g("failed to chmod %s: %s"), $file, $!)."\n";
  151.         }
  152.     }
  153. } elsif ($mode eq "remove") {
  154.     @ARGV==1 || &badusage(sprintf(_g("--%s needs a single argument"), "remove"));
  155.     my $file = $ARGV[0];
  156.     $file =~ s,/+$,, && print STDERR _g("stripping trailing /")."\n";
  157.     if (not defined $owner{$file}) {
  158.         print STDERR _g("No override present.")."\n";
  159.         exit(0) if ($doforce); 
  160.         exit(2);
  161.     }
  162.     delete $owner{$file};
  163.     delete $group{$file};
  164.     delete $mode{$file};
  165.     $dowrite=1;
  166.     print(STDERR _g("warning: --update is useless for --remove")."\n") if ($doupdate);
  167. } elsif ($mode eq "list") {
  168.     my (@list, @ilist);
  169.  
  170.     @ilist= @ARGV ? @ARGV : ('*');
  171.     while (defined($_=shift(@ilist))) {
  172.         s/\W/\\$&/g;
  173.         s/\\\?/./g;
  174.         s/\\\*/.*/g;
  175.         s,/+$,, && print STDERR _g("stripping trailing /")."\n";
  176.         push(@list,"^$_\$");
  177.     }
  178.  
  179.     my $pattern = join('|', @list);
  180.     $exitcode=1;
  181.     for my $file (keys %owner) {
  182.         next unless ($file =~ m/$pattern/o);
  183.         $exitcode=0;
  184.         print "$owner{$file} $group{$file} $mode{$file} $file\n";
  185.     }
  186. }
  187.  
  188. &WriteOverrides if ($dowrite);
  189.  
  190. exit($exitcode);
  191.  
  192. sub ReadOverrides {
  193.     open(SO,"$admindir/statoverride") || &quit(sprintf(_g("cannot open statoverride: %s"), $!));
  194.     while (<SO>) {
  195.         my ($owner,$group,$mode,$file);
  196.         chomp;
  197.  
  198.         ($owner,$group,$mode,$file)=split(' ', $_, 4);
  199.         die sprintf(_g("Multiple overrides for \"%s\", aborting"), $file)
  200.             if defined $owner{$file};
  201.         $owner{$file}=$owner;
  202.         $group{$file}=$group;
  203.         $mode{$file}=$mode;
  204.     }
  205.     close(SO);
  206. }
  207.  
  208.  
  209. sub WriteOverrides {
  210.     my ($file);
  211.  
  212.     open(SO,">$admindir/statoverride-new") || &quit(sprintf(_g("cannot open new statoverride file: %s"), $!));
  213.     foreach $file (keys %owner) {
  214.         print SO "$owner{$file} $group{$file} $mode{$file} $file\n";
  215.     }
  216.     close(SO);
  217.     chmod(0644, "$admindir/statoverride-new");
  218.     unlink("$admindir/statoverride-old") ||
  219.         $! == ENOENT || &quit(sprintf(_g("error removing statoverride-old: %s"), $!));
  220.     link("$admindir/statoverride","$admindir/statoverride-old") ||
  221.         $! == ENOENT || &quit(sprintf(_g("error creating new statoverride-old: %s"), $!));
  222.     rename("$admindir/statoverride-new","$admindir/statoverride")
  223.         || &quit(sprintf(_g("error installing new statoverride: %s"), $!));
  224. }
  225.  
  226.  
  227. sub quit
  228. {
  229.     printf STDERR "%s: %s\n", $0, "@_";
  230.     exit(2);
  231. }
  232.  
  233. sub badusage
  234. {
  235.     printf STDERR "%s: %s\n\n", $0, "@_";
  236.     &usage;
  237.     exit(2);
  238. }
  239.  
  240. # vi: ts=8 sw=8 ai si cindent
  241.